function Main()

   local oMeta := TMetaClass():New( "TBOX" )

   MsgInfo( oMeta:ClassName() )

return nil
